home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / prog / ibrary10.zip / DEMO.ASI < prev    next >
Text File  |  1993-04-23  |  2KB  |  86 lines
  1. REM  +----------------------------------------------------------------------+
  2. REM  |                                                                      |
  3. REM  |           IBRARY  Copyright (c) 1993  Thomas G. Hanlin III           |
  4. REM  |                                                                      |
  5. REM  +----------------------------------------------------------------------+
  6.  
  7.  
  8. REM  ----- Tell 'em what we're about ----------------------------------------
  9.  
  10.  
  11.    CLS
  12.    LOCATE 1, 10
  13.    PRINT "IBRARY  Copyright (c) 1993  Thomas G. Hanlin III"
  14.    PRINT
  15.    PRINT
  16.    PRINT "This brief demo provides an example of how to use the IBRARY library,"
  17.    PRINT "a large collection of routines written for use with David A. Visti's" 
  18.    PRINT "ASIC compiler.  It shows the use of a few of the equipment detection" 
  19.    PRINT "routines in IBRARY."
  20.    PRINT
  21.    PRINT
  22.  
  23.  
  24. REM  ----- Display processor type -------------------------------------------
  25.  
  26.  
  27.    CALL SUB "Processor" ProcType
  28.    PRINT "Processor     : ";
  29.    IF ProcType = 1 THEN
  30.       PRINT "8088"
  31.    ELSE
  32.       ProcType = ProcType - 1
  33.       CALL SUB "StrNB" ProcType St$
  34.       PRINT "80";
  35.       PRINT St$;
  36.       PRINT "86"
  37.    ENDIF
  38.  
  39.  
  40. REM  ----- Display basic equipment info -------------------------------------
  41.  
  42.  
  43.    CALL SUB "Floppies" Floppies
  44.    PRINT "Floppy drives : ";
  45.    CALL SUB "StrNB" Floppies St$
  46.    PRINT St$
  47.  
  48.  
  49. REM  ----- Display video adapter type ---------------------------------------
  50.  
  51.  
  52.    CALL SUB "GetDisplay" Adapter, Mono
  53.    tmp = Adapter * 4
  54.    tmp = tmp - 3
  55.    St$ = MID$("MDA HercCGA EGA MCGAVGA ", tmp, 4)
  56.    St$ = RTRIM$(St$)
  57.    IF Mono < 0 THEN
  58.       St$ = St$ + " on a monochrome monitor"
  59.    ELSE
  60.       St$ = St$ + " on a color monitor"
  61.    ENDIF
  62.    PRINT "Display       : ";
  63.    PRINT St$
  64.  
  65.  
  66. REM  ----- Display BIOS date ------------------------------------------------
  67.  
  68.  
  69.    CALL SUB "PCDate" PCDate$
  70.    PRINT "ROM BIOS date : ";
  71.    PRINT PCDate$
  72.  
  73.  
  74. REM  ----- Display port info ------------------------------------------------
  75.  
  76.  
  77.    CALL SUB "CommPorts" CommPorts
  78.    PRINT "COM ports     : ";
  79.    CALL SUB "StrNB" CommPorts St$
  80.    PRINT St$
  81.  
  82.    CALL SUB "PrtPorts" PrtPorts
  83.    PRINT "LPT ports     : ";
  84.    CALL SUB "StrNB" PrtPorts St$
  85.    PRINT St$
  86.